home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aas.d64 / tax87 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  11KB  |  368 lines
  1. 0 REM V 1.0 JAN 26/88
  2. 1 DATA === ONTARIO TAX RETURN ===,$1987
  3. 2 DATA .......JIM BUTTERFIELD....,C0;0
  4. 3 DATA ====PAGE 1====,C0
  5. 4 DATA INCOME FROM EMPLOYMENT,#1;I2
  6. 5 DATA EMPLOYMENT EXPENSES,#2;C1;V1%20[500
  7. 6 DATA NET EMPL EARN,Z2;C2;V1-V2
  8. 7 DATA DIVDS TAX CANDN CORPNS,#3;I2
  9. 8 DATA INTEREST (CANADIAN),#4;I2
  10. 9 DATA TAXABLE CAPITAL GAINS,I2
  11. 10 DATA OTHER INCOME,I2
  12. 11 DATA TOTAL INCOME,#5;C3;S2
  13. 12 DATA ====PAGE 2====,C0
  14. 13 DATA TOTAL INCOME,C4;V5
  15. 14 DATA CPP CONTRIBUTIONS,Z3;I3
  16. 15 DATA UIC CONTRIBUTIONS,I3
  17. 16 DATA OTHER DEDUCTIONS,I3
  18. 17 DATA TOTAL DEDUCTIONS,#6;C4;S3
  19. 18 DATA NET INCOME,#7;C4;V5-V6
  20. 19 DATA PERSONAL EXEMPTION,Z3;C3;4220
  21. 20 DATA AGE EXEMPTION,I3[2640
  22. 21 DATA EXEMPTION FOR SPOUSE,I3[3700
  23. 22 DATA EXEMPTION FOR CHILDREN,I3
  24. 23 DATA OTHER EXEMPTIONS,I3
  25. 24 DATA TOTAL PERSONAL EXEMPTIONS,#8;C4;S3
  26. 25 DATA LINE 236,#9;C4;V7-V8
  27. 26 DATA INTRST & DIVDND DEDUCTION,C3;Z3;V3+V4[1000
  28. 27 DATA MEDICAL EXPENSES,#10;I2
  29. 28 DATA LESS 3% NI,#11;0;(V10>0);C2;V7%3]0
  30. 29 DATA NET MEDICAL EXPENSES,0;(V10>0);C3;V10-V11]0
  31. 30 DATA CHARITABLE DONATIONS,I3
  32. 31 DATA OTHER DEDUCTIONS,I3
  33. 32 DATA TOTAL DEDUCTIONS,#13;C4;S3
  34. 33 DATA TAXABLE INCOME,#14;C4;V9-V13]0
  35. 35 DATA USE TAX TABLE/OR..,(V14<=40000);(V3=0);C0
  36. 36 DATA ====SCHEDULE 1=====,C0
  37. 37 DATA BRCKT,#15;V14;X;63347;36952;23755;18476;13197;7918;5279;2639;1320;0
  38. 38 DATA ..ON FIRST,V15;C1
  39. 39 DATA ..TAX IS,#16;C2;Y;15705;7786;4487;3273; 2217;1214; 739; 290;  79;0
  40. 40 DATA ..ON REMAINING,#17;C1;V14-V15
  41. 41 DATA ..TAX AT PERCENT..,#18;C1;Y;34;30;25;23;20;19;18;17;16;6
  42. 42 DATA ..GIVES,#19;C2;V17%V18
  43. 43 DATA TOTAL,#20;C3;V16+V19
  44. 44 DATA DIVD TAX CREDIT,#21;C3;V3%50/3[V20
  45. 45 DATA BASIC FEDERAL TAX,#22;C4;V20-V21
  46. 46 DATA FORGN TAX DEDUCTIONS,#23;I3
  47. 47 DATA FED TAX PAYABLE,#24;C4;V22-V23
  48. 51 DATA NDIV SURTAX PAYABLE,#28;C4;V22%3
  49. 52 DATA ===ONTARIO TAX===,0
  50. 53 DATA BASIC ONTARIO TAX,#30;C3;V22%50
  51. 54 DATA ONTARIO SURTAX,#31;C3;V30-5000]0%3
  52. 55 DATA ADJUSTED TAX,#32;C4;V30+V31
  53. 58 DATA TAX REDUCTION,#35;C3;V32;(V14>2075);2275-V14/2]0
  54. 59 DATA ONTARIO TAX PAYABLE,#36;C4;V32-V35
  55. 60 DATA ==ONTARIO TAX CREDITS==,C0
  56. 61 DATA ARE YOU ELIGIBLE FOR THESE,#37;N
  57. 62 DATA XXN,(V37=0);J48
  58. 63 DATA RENTAL PAYMENTS,#38;I1
  59. 64 DATA 20% OF RENTAL,#39;C2;V38%20
  60. 65 DATA PROP TAXES/COLLEGE,#40;I2
  61. 66 DATA OCCUPANCY COST,#41;C2;V39+V40
  62. 67 DATA ADD..,#42;C3;V41[230
  63. 68 DATA TO..,#43;C3;V41%10
  64. 69 DATA TOTAL PROP TAX CREDIT,#44;C4;V42+V43
  65. 70 DATA SALES TAX CREDIT,#45;C4;V8%1
  66. 71 DATA TOTAL (A),#46;C4;V44+V45
  67. 72 DATA LESS 2% TI (B),#47;C4;V14%2;(V14<=2075);0
  68. 73 DATA NET P&ST CREDITS(D),#48;C4;V46-V47]0[500*V37
  69. 74 DATA ONT POLIT TAX CREDIT,#49;I4
  70. 75 DATA ONTARIO TAX CREDITS,#50;C4;V48+V49
  71. 76 DATA ===PAGE 4===,C0
  72. 77 DATA FEDERAL TAX PAYABLE,C4;V24
  73. 78 DATA FEDERAL TAX CREDITS,#51;I3
  74. 79 DATA NET FEDERAL TAX,#52;C4;V24-V51
  75. 80 DATA INDIV SURTAX PAYABLE,C4;V28
  76. 81 DATA NET FED TAX PAYABLE,#53;C4;V52+V28
  77. 82 DATA ONTARIO TAX PAYABLE,#54;C3;V36
  78. 83 DATA TOTAL PAYABLE,#55;C4;V53+V54
  79. 84 DATA TAX DEDUCTED PER SLIPS,#56;I3
  80. 85 DATA ONTARIO TAX CREDITS,C3;V50
  81. 86 DATA OTHER CREDITS,#57;I3
  82. 87 DATA TOTAL CREDITS,#58;C4;V56+V50+V57
  83. 88 DATA X,#59;V55-V58;(V58>V55);V58-V55
  84. 89 DATA X,$;----------
  85. 90 DATA * NO BALANCE *,#60;1;(V59<1);C0;0
  86. 91 DATA X,#61;V60;(V58>V55);2*V60
  87. 92 DATA * REFUND DUE *,(V61=2);C2;V59
  88. 93 DATA * BALANCE PAYABLE *,(V61=1);C2;V59
  89. 999 DATA END,END,END
  90. 1000 REM: **** R U G  -  REPORT UTILITY GENERATOR ****
  91. 1010 REM: COMMAND LINES... ( C$(.) )
  92. 1020 REM:   A SERIES OF COMMANDS, EACH OF WHICH IS SEPARATED
  93. 1030 REM:           BY A SEMICOLON;
  94. 1035 REM:   LINE STARTING WITH # IDENTIFIES VARIABLE LINE.
  95. 1040 REM:   LINE STARTING WITH $ IS SPECIAL TITLING LINE.
  96. 1050 REM: COMMANDS...
  97. 1060 REM:   MAY BE AN EXPRESSION (SEE BELOW), OR:
  98. 1070 REM:   C# - PRINT IN COLUMN  (#=0 TO 4, 0=NO PRINT)
  99. 1080 REM:   Z# - CLEAR COLUMN TOTAL (#=1 TO 4)
  100. 1090 REM:   T# - PRINT COLUMN TOTAL (#=1 TO 4)
  101. 1100 REM:    (Z OR T MAY HAVE MULTIPLES, E.G., Z1234)
  102. 1105 REM:   J# - JUMP TO SPECIFIED LINE
  103. 1110 REM: EXPRESSIONS...
  104. 1111 REM:   (PARENTHESES FOR TEST)  .. CONTINUE LINE IF TRUE (<>0)
  105. 1112 REM:   FOLLOWING MAY BE MIXED USING OPERATORS (BELOW)
  106. 1113 REM:     NUMERIC VALUES;
  107. 1114 REM:     I# FOR KEYBOARD INPUT (# IS COLUMN);
  108. 1115 REM:     S# FOR COLUMN TOTAL   (# IS COLUMN);
  109. 1116 REM:     V# FOR VARIABLE VALUE;
  110. 1117 REM:     N   GETS YES/NO VALUE
  111. 1118 REM:  OPERATORS (LEFT-TO-RIGHT EVALUATION):
  112. 1120 REM:   + ADDITION   - SUBTRACTION
  113. 1130 REM:   * MULTIPLY   / DIVIDE
  114. 1140 REM:   % PERCENTAGE (MULTIPLY)
  115. 1150 REM:   [ SMALLER OF      ] GREATER OF
  116. 1160 REM:   (EXAMPLE:  22[7 RETURNS 7)
  117. 1170 REM:   > < = COMPARISONS:  YIELD 0 (NOT TRUE) OR 1 (TRUE)
  118. 1180 REM:   COMPARISONS MAY BE USED MULTIPLY, E.G., V5<=100
  119. 1190 REM: EXAMPLES...
  120. 1200 REM:      I3+100[500
  121. 1210 REM:   INPUT VALUE, ADD 100, IF OVER 500 SET TO 500
  122. 1220 REM:   PRINT RESULT IN COLUMN3
  123. 1230 REM:      C3;V12%10[100
  124. 1240 REM:   TAKE 10% OF VALUE 12 (LINE 12) MINIMUM 100
  125. 1250 REM:   AND PRINT IN COLUMN 3
  126. 1260 REM:      500;(V15>1000);V15/2
  127. 1270 REM:   VALUE 500; OR IF VALUE 15 IS GREATER THAN 1000
  128. 1280 REM:      SET VALUE V15/2.  DO NOT PRINT (NO 'C' SET).
  129. 2000 PRINT "PLEASE WAIT..."
  130. 2010 PRINT
  131. 2020 PRINT "WHEN PROMPTED, YOU MAY ENTER:"
  132. 2030 PRINT "    <RETURN> (FOR 'ZERO' INPUT);"
  133. 2040 PRINT "    NUMERIC VALUE <RETURN>;"
  134. 2050 PRINT "    NUMERIC VALUE   +  "
  135. 2060 PRINT "      (TO HAVE ITEMS TOTALLED);
  136. 2070 [153] "    _   (TO REVIEW OR CHANGE DATE)."
  137. 2080 [153]
  138. 2100 [153] "ONTARIO 1987 INCOME TAX"
  139. 2110 [153]
  140. 2120 [153] "THIS PROGRAM DOES NOT GIVE TAX ADVICE"
  141. 2130 [153] "  ..JUST HELPS WITH THE ARITHMETIC."
  142. 2140 [153]
  143. 2150 [153] "THIS IS *NOT* THE COMPUTER TAX FORMAT"
  144. 2160 [153] "ACCEPTED FOR FILING BY REVENUE CANADA."
  145. 2170 [153]
  146. 3000 [134] I$(200),I%(200),V(200),C$(200),C(4),T(4)
  147. 3010 C(1)[178]1:C(2)[178]2:C(3)[178]4:C(4)[178]8
  148. 3020 [129] J[178]1 [164] 100
  149. 3030 [135] I$,C$:[139] I$[178]"END" [137] 3060
  150. 3040 L0[178]1:[139] [200](C$,1)[179][177]"#" [137] 3050
  151. 3041 [129] L0[178]2 [164] [195](C$):[139] [202](C$,L0,1)[179][177]";"[167] [130] L0
  152. 3042 T[178][197]([202](C$,2,L0[171]1)):[139] I%(T)[179][177]0 [137] 5260
  153. 3043 I%(T)[178]J:L0[178]L0[170]1
  154. 3050 I$(J)[178]I$:C$(J)[178][202](C$,L0):[130] J
  155. 3060 [153]
  156. 3070 [153] "CMD";:J[178][185](0):[153]
  157. 3080 LL[178]J[170]1
  158. 3090 [159] 4,3
  159. 4000 S$[178]"                                        "
  160. 4010 C1[178]1
  161. 5000 [143] NEXT ITEM
  162. 5010 C0[178][171]1:T3[178]0:C[178]C1:C1[178]C[170]1:[139] C$(C)[178]"C0" [167] C9[178]C
  163. 5040 L0[178]1:L1[178][195](C$(C)):I0[178]0:[139]L1[178]0[137]5420     :[143] END
  164. 5045 [139] [198](C$(C))[178]36 [167] [141] 7810:[137] 5000 :[143] $
  165. 5050 [143] START NEW SCAN
  166. 5060 [139] L0[177]L1 [137] 5400
  167. 5070 [129] J[178]L0 [164] L1
  168. 5080 [139] [198]([202](C$(C),J))[179][177]59 [167] [130] J:[143] SEMICOLON
  169. 5090 L2[178]J:L3[178]L2[171]L0
  170. 5100 T[178][198]([202](C$(C),L0))
  171. 5110 [139] T[178]67 [137] 5270:   [143] C
  172. 5115 [139] I2 [175] T[178]73 [137] 5270:  [143] I/PRINT
  173. 5120 [139] T[178]40 [137] 5180:   [143] (
  174. 5125 [139] T[178]74 [137] 5262:   [143] J
  175. 5128 [139] I2 [137] 5350
  176. 5130 [139] T[178]88 [137] 5216:   [143] X
  177. 5132 [139] T[178]89 [137] 5232:   [143] Y
  178. 5140 [139] T[178]84 [176] T[178]90 [137] 5280:   [143] T/Z
  179. 5150 [141]8010
  180. 5155 [139]T0[175][168]I0[167]L8[178]L0:L9[178]L2:[141]6010:[139] X$[178]"_" [137] 5440
  181. 5156 [139] [168] T0 [137] 5170     :[143] ERROR
  182. 5160 V(C)[178][181](V[172]100[170].5):[137]5350
  183. 5170 [153] "ERROR ITEM";C;"' ";[202](C$(C),L0);" '":[144]
  184. 5175 [143]: (..) EVALUATE AND CONTINUE/QUIT
  185. 5180 E[178][198]([202](C$(C),L2[171]1))[179][177]41:[139] E [137] 5260
  186. 5190 E[178](L2[171]L0)[179]3:[139] E [137] 5260
  187. 5200 L8[178]L0[170]1:L9[178]L2[171]1:[141] 6010:[139] V[178]0 [137] 5400
  188. 5210 [137]5350
  189. 5215 [143] X - TABLE LOOKUP
  190. 5216 Y[178]0:V0[178]V(C)[173]100
  191. 5217 L0[178]L2[170]1:[139] L0[177]L1 [137] 5226
  192. 5218 Y[178]Y[170]1:[129] J[178]L0 [164] L1
  193. 5219 [139] [198]([202](C$(C),J))[179][177]59 [167] [130] J:[143] SEMICOLON
  194. 5220 L2[178]J:L3[178]L2[171]L0
  195. 5222 V[178][197]([202](C$(C),L0,L3))
  196. 5224 [139] V[177]V0 [137] 5217
  197. 5226 V(C)[178][181](V[172]100[170].5)
  198. 5228 [137] 5400
  199. 5230 [143] Y - TABLE USAGE
  200. 5232 Y1[178]Y
  201. 5234 L0[178]L2[170]1:[139] L0[177]L1 [137] 5248
  202. 5236 Y1[178]Y1[171]1:L0[178]L2[170]1:[129] J[178]L0 [164] L1
  203. 5238 [139] [198]([202](C$(C),J))[179][177]59 [167] [130] J:[143] SEMICOLON
  204. 5240 L2[178]J:L3[178]L2[171]L0
  205. 5242 [139] Y1[177]0 [137] 5234
  206. 5246 V(C)[178][181]([197]([202](C$(C),L0,L3))[172]100[170].5)
  207. 5248 [137] 5400
  208. 5260 [153] "ERROR ITEM";C;"' ";[202](C$(C),L1);" '":[144]
  209. 5261 [143]: J - JUMP TO LINE
  210. 5262 V[178][197]([202](C$(C),L0[170]1,L3[171]1))
  211. 5263 C1[178]I%(V)
  212. 5264 [137] 5400
  213. 5265 [143]: C - SET COLUMN VALUE
  214. 5270 C0[178][197]([202](C$(C),L0[170]1,L3[171]1)):E[178](C0[177]4):[139] E [137] 5260
  215. 5271 C0[178]C(C0)
  216. 5272 [137] 5350
  217. 5275 [143]: T/Z MULTIPLE COLUMN FUNCTIONS
  218. 5280 C8[178]C0:C0[178]0
  219. 5290 [129] J[178]L0[170]1 [164] L2[171]1
  220. 5300 T0[178][197]([202](C$(C),J,1)):C0[178]C0[176]C(T0)
  221. 5310 [130] J
  222. 5320 [139] T[178]90 [167] [141] 5800:C0[178]C8
  223. 5330 [139] T[178]84 [167] T3[178]1
  224. 5340 [143]: PROCEED TO NEXT COMMAND WITHIN LINE
  225. 5350 L0[178]L2[170]1:[137] 5060
  226. 5400 [143]: WINDUP LINE HERE
  227. 5410 [141] 7010:[137] 5000
  228. 5415 [143]: END OF CONTROL STRINGS
  229. 5420 [139] I2 [167] [160]4:[128]
  230. 5422 [139] C9[178]0 [137] 5540
  231. 5425 [133] "WANT TO REVISE THIS";X$
  232. 5430 [139] X$[179][177]"Y" [175] X$[179][177]"YES" [137] 5540
  233. 5440 X$[178]"":[139] C9[178]0 [137] 5530
  234. 5445 [153]:R[178]0:[129] J[178]1 [164] C
  235. 5450 [139] C$(J)[178]"C0" [167] R[178]R[170]1:[153] R;">>> ";I$(J)
  236. 5460 [130] J
  237. 5465 V[178]1:[139] R[178]1 [137] 5490
  238. 5470 [153] "GO BACK TO WHICH ONE (1 TO";R;")";
  239. 5480 [133] V
  240. 5490 [139] V[179]1 [176] V[177]R [137] 5530
  241. 5500 R[178]0:[129] J[178]1 [164] C
  242. 5510 [139] C$(J)[178]"C0" [167] R[178]R[170]1:[139] R[178]V [167] C[178]J
  243. 5520 [130] J
  244. 5530 C1[178]C:[137] 5000
  245. 5540 [160] 4:[133] "WANT A PRINTOUT";X$
  246. 5550 [139] X$[179][177]"Y" [175] X$[179][177]"YES" [167] [128]
  247. 5560 C1[178]1:[159] 4,4:LL[178]80:I0[178]0:I2[178][171]1
  248. 5570 [137] 5000
  249. 5800 [143]: ZERO COLUMN TOTALS
  250. 5810 [129] J[178]1 [164] 4
  251. 5820 [139] (C0 [175] C(J))[179][177]0 [167] T(J)[178]0
  252. 5830 [130] J
  253. 5840 [142]
  254. 6000 [143] EVALUATE
  255. 6010 V[178]0:O0[178]43
  256. 6020 [143] GET A COMMAND
  257. 6030 [129] J[178]L8 [164] L9[171]1
  258. 6040 T[178][198]([202](C$(C),J)):[141] 8025
  259. 6050 [139] [168] T0 [167] [130] J
  260. 6060 O1[178]T:L5[178]J
  261. 6070 E[178]L5[179][178]L8:[139] E [137] 6760
  262. 6080 T[178][198]([202](C$(C),L8)):[141] 8010
  263. 6090 E[178][168] T0:[139] E [137] 6760
  264. 6100 [139] (T[177]47 [175] T[179]58) [176] T[178]46 [167] V0[178][197]([202](C$(C),L8,L5[171]L8)):[137] 6600
  265. 6120 [139] T[178]83 [176] T[178]86 [167] V1[178][197]([202](C$(C),L8[170]1,L5[171]L8[171]1))
  266. 6125 [139] T[178]83 [167] V0[178]T(V1)[173]100:[137] 6600
  267. 6126 [139] T[178]86 [167] [141] 8500:[139] [168] E [137] 6600
  268. 6130 E[178]I0:[139] E [137] 6760
  269. 6140 I0[178][171]1
  270. 6150 [139] T[179][177]78 [137] 6200
  271. 6155 [143]: Y FOR YES/NO
  272. 6160 I0[178][171]1:I1[178][171]1:[153] I$(C);"(Y/N) ? ";:J[178]35
  273. 6170 [161] Y$:[139] Y$[178]"Y" [176] Y$[178]"N" [137] 6180
  274. 6175 [153] [199](J);"CMD";:J[178]J[170]1:[139] J[178]40 [167] J[178]35
  275. 6176 [137] 6170
  276. 6180 [153] Y$:V0[178]0:[139] Y$[178]"Y" [167] V0[178]1
  277. 6190 [137] 6600
  278. 6195 [143]: I FOR INPUT
  279. 6200 C0[178][197]([202](C$(C),L8[170]1,L5[171]L8[171]1)):E[178](C0[179]1 [176] C0[177]4):[139] E [137] 6760
  280. 6201 C0[178]C(C0)
  281. 6210 [153] I$(C);"? ";
  282. 6220 V$[178]"":V0[178]0:I1[178][171]1
  283. 6225 [139] V(C)[179][177]0 [167] [141] 7300:[153] V$;
  284. 6230 [153] "SPC(CMD";
  285. 6240 [161] X$:[139] X$[178]"" [137] 6240
  286. 6245 [139] X$[178]"_" [167] [142]
  287. 6250 X[178][198](X$):[139] X[178]13 [137] 6400
  288. 6260 [139] (X[177]47 [175] X[179]58) [176] X[178]45 [176] X[178]46 [167] V$[178]V$[170]X$:[153] X$;
  289. 6270 [139] X[178]20 [175] [195](V$)[177]0 [167] [153] " ";X$;X$;:V$[178][200](V$,[195](V$)[171]1)
  290. 6280 [139] X[179][177]43 [137] 6230
  291. 6290 I1[178]0:[153] X$:[153] [200](S$,[195](I$(C))[170]2);
  292. 6300 V0[178]V0[170][197](V$):V$[178]"":[137]6230
  293. 6400 [153] " ";X$;:V0[178]V0[170][197](V$)
  294. 6590 [143]: PERFORM DYADIC OPERATION
  295. 6600 [139] O0[178]43 [167] V[178]V[170]V0
  296. 6610 [139] O0[178]45 [167] V[178]V[171]V0
  297. 6620 [139] O0[178]42 [167] V[178]V[172]V0
  298. 6630 [139] O0[178]47 [167] V[178]V[173]V0
  299. 6640 [139] O0[178]37 [167] V[178]V[172]V0[173]100
  300. 6650 [139] O0[178]91 [167] [139] V[177]V0 [167] V[178]V0
  301. 6660 [139] O0[178]93 [167] [139] V[179]V0 [167] V[178]V0
  302. 6670 [139] O0[178]1 [167] V[178][171](V[179]V0)
  303. 6680 [139] O0[178]2 [167] V[178][171](V[178]V0)
  304. 6690 [139] O0[178]3 [167] V[178][171](V[179][178]V0)
  305. 6700 [139] O0[178]4 [167] V[178][171](V[177]V0)
  306. 6710 [139] O0[178]5 [167] V[178][171](V[179][177]0)
  307. 6720 [139] O0[178]6 [167] V[178][171](V[177][178]0)
  308. 6730 [139] O0[178]7 [167] V[178]1
  309. 6740 O0[178]O1:L8[178]L5[170]1
  310. 6750 [139] L8[179]L9 [137] 6030
  311. 6755 [142]
  312. 6760 [153] "ERROR ITEM";C;"' ";[202](C$(C),L8,L5[171]L8);" '":[144]
  313. 7000 [143]: ECHO LINE
  314. 7010 [139] C0[179]0 [137] 7130
  315. 7020 [139] I0 [175] I1 [167] [153] "ON";
  316. 7030 [152]4,[200](I$(C)[170]S$,26);" ";
  317. 7040 [139] C0[179]1 [137] 7120
  318. 7050 [129] J[178]1 [164] 4
  319. 7060 [139] (C0[175]C(J))[178]0[137]  7100
  320. 7070 [139] T3[178]0 [167] T(J)[178]T(J)[170]V(C)
  321. 7080 [139] T3[179][177]0 [167] V(C)[178]T(J):T(J)[178]0
  322. 7090 [141] 7200:[137] 7110
  323. 7100 [139] LL[177]60 [167] [152]4,[200](S$,12);
  324. 7110 [130] J
  325. 7120 [152]4
  326. 7130 [142]
  327. 7200 [141] 7400
  328. 7210 CR$[178]"  ":[139] [200](V$,1)[178]"-" [167] CR$[178]"CR"
  329. 7220 D$[178][201](S$[170]D$,6):CM$[178][202](D$,3,1)
  330. 7230 [139] CM$[179][177]" " [167] CM$[178]","
  331. 7240 [152]4,[200](D$,3);CM$;[202](D$,4);".";C$;CR$;
  332. 7250 [142]
  333. 7300 [141] 7400:V$[178][200](V$,1)[170]D$:[139]C$[179][177]"00"[167]V$[178]V$[170]".":V$[178]V$[170]C$
  334. 7310 [142]
  335. 7400 V$[178][196](V(C)):[139] [195](V$)[179]3 [167] V$[178][200](V$,1)[170]"0"[170][201](V$,1)
  336. 7410 C$[178][201](V$,2):D$[178][202](V$,2,[195](V$)[171]3)
  337. 7420 [139] [195](D$)[177]6 [167] D$[178]"******"
  338. 7430 [142]
  339. 7800 [143]: DOLLARS LINE
  340. 7810 [139] [195](I$(C))[177]1 [167] [152]4,[200](I$(C)[170]S$,26);" ";
  341. 7820 [139] [195](I$(C))[179]2 [167] [152]4,[200](S$,26);" ";
  342. 7830 L0[178]2
  343. 7840 [139] L0[177]L1 [137] 7910
  344. 7850 [129] J[178]L0 [164] L1
  345. 7860 [139] [198]([202](C$(C),J))[179][177]59 [167] [130] J
  346. 7870 L2[178]J:L3[178]L2[171]L0
  347. 7880 [139] L2[177]0 [167] [152]4,[201](S$[170][202](C$(C),L0,L3),10);"  ";
  348. 7890 [139] L2[178]0 [167] [152]4,[200](S$,12);
  349. 7900 L0[178]L2[170]1:[139] LL[177]40 [137] 7840
  350. 7910 [152]4
  351. 7920 [142]
  352. 8000 [143]: VALUE TYPES
  353. 8010 T0[178](T[177]47 [175] T[179]58) [176] T[178]46 [176] T[178]73 [176] T[178]83 [176] T[178]86 [176] T[178]78:[142]
  354. 8020 [143]: OPERATORS AND COMPARISON GROUPS
  355. 8025 T2[178]0:T0[178]T[178]37 [176] T[178]42 [176] T[178]43 [176] T[178]45 [176] T[178]47 [176] T[178]91 [176] T[178]93
  356. 8030 T1[178]T[178]60 [176] T[178]61 [176] T[178]62
  357. 8040 T0[178]T0 [176] T1
  358. 8050 [139] [168] T1 [137] 8100
  359. 8060 T1[178]T[171]59:[139] T1[178]3 [167] T1[178]4
  360. 8070 T2[178]T2 [176] T1
  361. 8080 T[178][198]([202](C$(C),J[170]1)):T1[178]T[178]60 [176] T[178]61 [176] T[178]62
  362. 8090 [139] T1 [167] J[178]J[170]1:[137] 8060
  363. 8100 [139] T2[177]0 [167] T[178]T2
  364. 8110 [142]
  365. 8500 E[178]I%(V1)[178]0: [139] E [167] [153] "** NO PARAM";V1:[142]
  366. 8510 V0[178]V(I%(V1))[173]100                 
  367. 8520 [142]
  368.